Trajectory Derived Type

type, public :: Trajectory


Components

Type Visibility Attributes Name Initial
integer, public :: size

size of Trajectory
real(kind=wp), public :: tetin
real(kind=wp), public :: xmin
real(kind=wp), public :: rin
real(kind=wp), public :: yn3
real(kind=wp), public :: pow
integer, public :: irs
integer, public :: iw
integer, public :: izn
integer, public :: spectrum_point_index
integer, public :: mbad
integer, public :: nrefj
real(kind=wp), public :: tetzap
real(kind=wp), public :: xmzap
real(kind=wp), public :: rzap
real(kind=wp), public :: yn3zap
real(kind=wp), public :: powexit
integer, public :: irszap
integer, public :: iwzap
integer, public :: iznzap
type(TrajectoryPoint), public, allocatable :: points(:)

Type-Bound Procedures

procedure, public :: init => init_method

  • public subroutine init_method(this, theta, index)

    инициализация траетории

    Arguments

    Type IntentOptional Attributes Name
    class(Trajectory), intent(inout) :: this
    real(kind=wp), intent(in) :: theta
    integer, intent(in) :: index

procedure, public :: reset => reset_method

  • public subroutine reset_method(this, index)

    сброс счетчика

    Arguments

    Type IntentOptional Attributes Name
    class(Trajectory), intent(inout) :: this
    integer, intent(in) :: index

procedure, public :: add_point => add_point_method

  • public subroutine add_point_method(this, tpoint)

    добавляение новой точнки траектории

    Arguments

    Type IntentOptional Attributes Name
    class(Trajectory), intent(inout) :: this
    class(TrajectoryPoint), intent(in) :: tpoint

procedure, public :: write_info => write_info_method

  • public subroutine write_info_method(this, iu)

    сохранение в файл информации о траектории

    Arguments

    Type IntentOptional Attributes Name
    class(Trajectory), intent(inout) :: this
    integer, intent(in) :: iu